home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 21
/
Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso
/
Aminet
/
comm
/
mail
/
YamToolDK.lha
/
yamtools20danish
/
StartYamTools.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-08-08
|
3KB
|
53 lines
/******************************************************************************/
/* */
/* YAMTOOLS */
/* Copyright ©1997 by Dick Whiting */
/* */
/*----------------------------------------------------------------------------*/
/* */
/* Standard Disclaimer: I wrote it, it works for me, I don't guarantee */
/* that it will do anything productive for anyone else, etc. etc. ;-) */
/* */
/*HOWEVER, if you DO find a use for it: I homeschool my kids and they */
/*would love a postcard from where EVER you live. */
/* */
/*Instant GEOGRAPHY lesson;) */
/* */
/* */
/*POSTCARDS: Dick Whiting */
/* 28590 S. Beavercreek Rd. */
/* Mulino, Oregon 97042 */
/* USA */
/* */
/*----------------------------------------------------------------------------*/
/* */
/* Address Bug Reports or Comments to: */
/* Dick Whiting <dwhiting@europa.com> */
/* 28 July 1997 */
/* */
/******************************************************************************/
/*
$VER: 1.1 Copyright ©1997 by Dick Whiting
$AUTHOR: Dick Whiting
$DESCRIPTION: Add-on Tools for Marcel Beck's wonderful YAM
*/
/**************************************************************************/
/* MuiRexx does not seem to like running MuiRexx from a Rexx Macro */
/* so we will create a script and then execute that */
/**************************************************************************/
Parse UPPER source invoked results called rest
rest=subword(rest,1,words(rest)-2)
slpos=lastpos('/',rest)
copos=pos(':',rest)
progdir=strip(substr(rest,1,max(slpos,copos)-1))
foo=open('OUT','T:runyt.script','W')
foo=writeln('OUT',"FailAt 999999")
foo=writeln('OUT',"Stack 40000")
foo=writeln('OUT',"CD "||progdir)
foo=writeln('OUT',"run muirexx:muirexx YamTools.rexx PORT YAMTOOLS HELP YamTools.guide")
foo=close('OUT')
address Command 'execute T:runyt.script'
exit